home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / shared.cst / 00011_qv210 QT script.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  1.0 KB  |  40 lines
  1. --on exitFrame
  2. --  global gLastSprite
  3. --  put [0, 110,120,130,140,150, 800,810,820,830,840, 1040,1050,1060,1070,1080, 1200,1210,1220,1230,1240, 2100,2110,2120,2130,2140, 2600,2610,2620,2630,2640, 90000] into MovieTimes
  4. --  VerifyFrame(MovieTimes)
  5. --  
  6. --  if rollover(23) then --check for restart 
  7. --    puppetsprite 23,true
  8. --    set the castnum of sprite 23 to 65
  9. --  else
  10. --    if not(the mouseDown) then puppetsprite 23, false
  11. --  end if
  12. --  
  13. --  repeat with i = 11 to 16 -- button channels
  14. --    if rollover(i) then
  15. --      put i into RollSprite
  16. --      if RollSprite = gLastSprite then
  17. --        exit repeat
  18. --      else
  19. --        puppetsprite i,true
  20. --        put the castnum of sprite(i) into lastcast
  21. --        set the castnum of sprite(i) to lastcast + 1
  22. --        updateStage 
  23. --        exit repeat
  24. --      end if
  25. --    end if
  26. --  end repeat
  27. --  
  28. --  if gLastSprite<>RollSprite then
  29. --    puppetsprite gLastSprite, false
  30. --    updateStage    
  31. --    put RollSprite into gLastSprite
  32. --  end if 
  33. --  
  34. --  go to the frame
  35. --end
  36. --
  37. --on KeyDown
  38. --  HandleKeys
  39. --end
  40.